home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / browser_ < prev    next >
Internet Message Format  |  1995-03-31  |  4KB
  1. From: Lutz Vieweg <lkv@mania.hotb.sub.org>
  2. Subject:  v03i021:  browser_lv - Browser v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 1388541963 (verify with brik -cv)
  8. Submitted-by: Lutz Vieweg <lkv@mania.hotb.sub.org>
  9. Posting-number: Volume 3, Issue 21
  10. Archive-name: browser_lv/part01
  11.  
  12. BEGIN_DOC browser.doc
  13.  
  14.  
  15. BROWSER
  16. -------
  17.  
  18. One day Kurt Cotoaga asked me for a routine allowing him to browse
  19. through a few topics in one of his programs. Since I could not remember
  20. a short and simple program already there, I wrote three little
  21. assembler routines:
  22.  
  23. SCROLLD  simply scrolls down the stack display 8 lines
  24. SCROLLU  simply scrolls up the stack display 8 lines
  25. INVERT   takes a number from 1 to 7 from the stack and inverts
  26.          the given "DISP" line.
  27.  
  28. With these 3 routines you can create a browser very simply. As an
  29. example, I included "BROWSE" wich takes a list and let you select
  30. an item.
  31.  
  32. These routines are FreeWare, of course.
  33.  
  34. Enjoy them, Lutz Vieweg
  35.  
  36. END_DOC
  37.  
  38. BEGIN_ASC browser.asc
  39. %%HP: T(3)A(D)F(.);
  40. "69A20FF7652000000070353425F4C4C44470D9D20CCD20190008FB97601B6550
  41. 714613517414334F77008A67517E1333407700CA1303401100EA13131F2AE718
  42. F1CF1577154718F1CF15FF15CF1811C115761546A6F52D8F2D760142164808CB
  43. 21302B00070353425F4C4C45570D9D20CCD20880008FB97601B6550714613517
  44. 414334F77008A6E417E1331313401100CA13031F2AE715EF15DF16F17F15EF15
  45. DF16F17F15E015D0161171A6F52D8F2D760142164808CB21309A0006094E4655
  46. 4254560D9D202BA81AEC81CCD204B0008FB97601B6550714613416414234F770
  47. 08A260677016E147135174143CC34800008BE95AE813296941A6D3401100CAA6
  48. D5AF1303170AE715EFBFE15CF16F15EFBFE15CF16F1562BAE1542161A6F52D8F
  49. 2D760142164808C44230B21302E000602425F475355460D9D20E163278BF18B9
  50. C19C2A21C432D6E2010C4D6E201035D6E201095E16320B3A23F2A20A132D6E20
  51. 1005D6E2010C43CE22D6E201095D6E20100576BA178BF14B2A2D5CE192CF1D6E
  52. 201035CFCE1387E1AFE226C7D15BF22D9D203FBF1C2A2050000B21305DF22D6E
  53. 201005803A276BA1485A1C42323C032803A284E206094E46554254547A20D9D2
  54. 0E16323CE22D6E201095D6E201035EBBE1AFE22D9D20D6E2010C445632D6E201
  55. 095976324F8023F2A276BA13CE2278BF1D6E201035CFCE1AFE226C7D15BF22D9
  56. D203FBF1C2A2050000B21305DF2284E2070353425F4C4C455743A2485A1B2130
  57. 5DF224B2A293632B2130D9D20E16323CE22D6E2010959C2A2D5CE1AFE22D9D20
  58. D6E2010C445632D6E20109597632AA9023F2A290DA13CE2278BF14B2A2D5CE1A
  59. FE226C7D15BF22D9D203FBF1C2A2050000B21305DF2284E2070353425F4C4C44
  60. 49C2A2485A1B21305DF224B2A293632B2130D9D20E1632D6E2010C4D6E201095
  61. 6C7D19C2A293632B2130B213047A203392010000000000015303392010000000
  62. 00001520339201000000000001150B21304B2A2F17A1803A284E206094E46554
  63. 25454BAC13CE2278BF1AFE22D9D206C7D1EB3A1B21305BF224B2A25DF22DE032
  64. 9B632EF53293632B21309B16"
  65. END_ASC
  66.  
  67. BYTES: #61B9h 789.5
  68.  
  69. BEGIN_UU browser.uue
  70. begin 644 browser
  71. M2%!(4#0X+466*O!_5@(````'4T-23TQ,1`>=+<#<`I$`@+]Y!K%6!1=D,15'
  72. M03/T=P"H=A7G,3,$=P"L,3`$$0"N,3'QHGZ!'_Q1=U%T@1_\4?]1_($1'%%G
  73. M461J7]+XTF<0)&&$@+P2`[(`<#`U)/7$Q%1UT-D"S"V`"`#XFV<0:U5P0193
  74. M<10T0W\'@&I.<1XS,3$$$0"L,3#QHGY1_E']81_W4?Y1_6$?]U$.40UA$1=J
  75. M7]+XTF<0)&&$@+P2`ZD`8)#D9%4D1670V0*RBJ'.&,PM0`L`^)MG$&M5<$$6
  76. M0V$4)$-_!X`J!G8'81YT,15'0<,\A```N)ZECC&2EA1J/001`*QJ7?HQ,'&@
  77. M?E'^^Q[%'_91_OL>Q1_V42:K'D42%FI?TOC29Q`D882`3"0#*S$@#@`&0E)/
  78. M5U-%!ITMX&$CA_N!FQS)HA),(VTN$,#4Y@(!4VTN$)#E82.PHS(O*J`QTN8"
  79. M`5!M+A#`-.PB;2X0D-7F`@%09ZMQN!^THM+%'BG\T>8"`5/\[#%X'OHN8GP=
  80. MM2_2V0+S^\&B`@4`L!(#U2_2Y@(!4`BC<K8:A*7!)"/#,((P*D@N8)#D9%4D
  81. M146G`ITMX&$CPR[2Y@(!66TN$##ENQ[Z+M+9`FTN$,!$92-M+A"0E6<C]`@R
  82. M+RIGJS'L(H?[T>8"`5/\[*'O(L;74?LBG2TPOQ\L*E```"LQ4/TB2"YP,#4D
  83. M]<3$5'4T*H2EL1(#U2]"*RHY-K(2`YTMX&$CPR[2Y@(!6<FBTL4>^B[2V0)M
  84. M+A#`1&4C;2X0D)5G(ZH),B\J":TQ["*'^T$K*EWLH>\BQM=1^R*=+3"_'RPJ
  85. M4```*S%0_2)(+G`P-23UQ,1$E"PJA*6Q$@/5+T(K*CDVLA(#G2W@82-M+A#`
  86. MU.8"`5G&UY$L*CDVLA(#*S%`IP(S*1```````!`U,),"`0``````40(S*1``
  87. M`````!!1L!(#M*+R<1H(HX+D`@9)3E9%4E2TRC'L(H?[H>\BG2U@?!V^H[$2
  88. 5`[4O0BLJU2_2#B.Y-N)?(SDVLA(#
  89. `
  90. end
  91. END_UU
  92.  
  93. --
  94.  ..instead of funeral wreaths we'd like you to send your donations
  95.    to lkv@mania.hotb.sub.org even now. Credit-cards welcome.
  96.  
  97.